home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ File Icons 1.xpl < prev    next >
Text File  |  2001-02-06  |  4KB  |  121 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Files&Folders\Files"
  5. "NAME"="Special File Icons"
  6. "VERSION"="2.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="TeXHeX rules!!!"
  9. "TEXT 1 COMMENT"="Neil T rules more!!!"
  10. "DESCRIPTION 1"="Enabling the items above will display the icons inside each file rather than using the generic icon that Windows uses by default. This may slow down your computer slightly, and not all files have icons in them, so these will be given the generic Windows 'Unknown File' icon."
  11. "DESCRIPTION 2"="'Display *.BMP files with a mini preview icon' will display a small preview of the bitmap instead of the icon. This might slow down your computer if you are viewing a folder with many images in it!"
  12. "DESCRIPTION 3"="Note: DO NOT activate 'Display BMP files with a mini preview icon' if you are using IE 5 with ActiveDesktop installed. This option *may* crash Windows Explorer in this case."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Neil R. Turner [totalxs@hotmail.com] for adding support for the extra formats."
  17.  
  18. SUB Plugin_Initialize
  19. ' BMP files are a special case, so this has to run on its own.
  20.  Call SetUIElement(1,"Display *.BMP files with a mini preview icon")
  21.  s=RegReadValue("HKCR\Paint.Picture\DefaultIcon\@")
  22.  if s="%1" then SetUIElementEx 1,true
  23.  
  24. ' All other files run through a SUB to make this file smaller.
  25.   Call RunCheck("CPL",2)
  26.   Call RunCheck("DLL",3)
  27.   Call RunCheck("ICO",4)
  28.   Call RunCheck("ICL",5)
  29.   Call RunCheck("NIL",6)
  30.   Call RunCheck("IL",7)
  31.   Call RunCheck("OCX",8)
  32.   Call RunCheck("VBX",9)
  33.   Call RunCheck("DRV",10)
  34.   Call RunCheck("SCR",11)
  35.   Call RunCheck("ANI",12)
  36.   Call RunCheck("CUR",13)
  37. END SUB
  38.  
  39. SUB RunCheck(EXT,NUMB)
  40. ' "Why is this called RunCheck?" - Don't ask me....
  41.  Call SetUIElement(NUMB,"Display *." & EXT & " files as icons")
  42.  s=RegReadValue("HKCR\" & EXT & "file\DefaultIcon\@")
  43.  if s="%1" then
  44.   Call SetUIElementEx(NUMB,true)
  45.  end if
  46. END SUB
  47.  
  48. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  49.  b=GetUIElementEx(1)
  50.  Call DoChange(b,"HKCR\Paint.Picture\")
  51.  
  52.  b=GetUIElementEx(2)
  53.  Call DoChange(b,"HKCR\cplfile\")
  54.  
  55.  b=GetUIElementEx(3)
  56.  Call DoChange(b,"HKCR\dllfile\")
  57.  
  58.  b=GetUIElementEx(4)
  59.  Call DoChange(b,"HKCR\icofile\")
  60.  
  61.  b=GetUIElementEx(5)
  62.  Call DoChange(b,"HKCR\iclfile\")
  63.  
  64.  b=GetUIElementEx(6)
  65.  Call DoChange(b,"HKCR\nilfile\")
  66.  
  67.  b=GetUIElementEx(7)
  68.  Call DoChange(b,"HKCR\ilfile\")
  69.  
  70.  b=GetUIElementEx(8)
  71.  Call DoChange(b,"HKCR\ocxfile\")
  72.  
  73.  b=GetUIElementEx(9)
  74.  Call DoChange(b,"HKCR\vbxfile\")
  75.  
  76.  b=GetUIElementEx(10)
  77.  Call DoChange(b,"HKCR\drvfile\")
  78.  
  79.  b=GetUIElementEx(11)
  80.  Call DoChange(b,"HKCR\scrfile\")
  81.  
  82.  b=GetUIElementEx(12)
  83.  Call DoChange(b,"HKCR\anifile\")
  84.  
  85.  b=GetUIElementEx(13)
  86.  Call DoChange(b,"HKCR\curfile\")
  87. END SUB
  88.  
  89. SUB Plugin_Terminate
  90. END SUB
  91.  
  92. Sub DoChange(Activate, RegPath)
  93. ' I've left this as it is since TeXHeX is a much better programmer than me :)
  94.  if Activate=true then
  95.   'save backup
  96.   s=RegReadValue(RegPath & "DefaultIcon\@")
  97.  
  98.   if s<>"%1" then
  99.    Call RegWriteValue(RegPath & "DefaultIcon\K/oS X-Setup Backup",s,1) ' K/oS??? How old is this???
  100.                                                                        ' We have come a long way baby...
  101.  
  102.    'apply changes
  103.    Call RegWriteValue(RegPath & "DefaultIcon\@","%1",1)
  104.   end if
  105.  else
  106.   'restore backup
  107.   s=RegReadValue(RegPath & "DefaultIcon\K/oS X-Setup Backup")
  108.  
  109.   if IsEmpty(s)=false then
  110.    Call RegWriteValue(RegPath & "DefaultIcon\@",s,1)
  111.    'remove backup
  112.    Call RegDeleteValue(RegPath & "DefaultIcon\K/oS X-Setup Backup") 
  113.   else
  114.    'wooops! Something is wrong!
  115.    Call RegWriteValue(RegPath & "DefaultIcon\@","",1)
  116.    'Call MsgError("Error while trying to remove function for <" & RegPath & "> - no backup could be found!")
  117.   end if
  118.  end if
  119.  
  120. end Sub
  121.